home *** CD-ROM | disk | FTP | other *** search
/ Vitra Design Museum - 100 Masterpieces / Vitra Design Museum - 100 Masterpieces.iso / pc / data / shared.dir / 00501_klappstuhl handlers.ls next >
Encoding:
Text File  |  1996-03-26  |  2.4 KB  |  60 lines
  1. on initpopupstuhl
  2.   global popupstatus, dlist
  3.   set popupstatus to 0
  4.   set d1list to list(489, 336, 52, 45, 462, 381, 74, 27, 460, 407, 61, 49, 641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1)
  5.   set d2list to list(468, 340, 52, 45, 469, 385, 70, 22, 474, 407, 64, 49, 641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1)
  6.   set d3list to list(447, 340, 52, 45, 466, 385, 70, 22, 505, 407, 33, 49, 641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1)
  7.   set d4list to list(641, 481, 1, 1, 469, 385, 56, 22, 641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1)
  8.   set d5list to list(641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1, 441, 344, 54, 33, 444, 377, 56, 35, 456, 412, 46, 45)
  9.   set d6list to list(641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1, 462, 354, 74, 35, 466, 389, 70, 34, 470, 422, 62, 38)
  10.   set d7list to list(641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1, 485, 350, 63, 35, 488, 385, 54, 33, 487, 418, 50, 41)
  11.   set d8list to list(641, 481, 1, 1, 462, 383, 65, 27, 641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1)
  12.   set d9list to list(512, 339, 35, 45, 471, 385, 62, 21, 459, 406, 32, 49, 641, 481, 1, 1, 641, 481, 1, 1, 641, 481, 1, 1)
  13.   set d10list to list(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  14.   set dlist to list(d1list, d2list, d3list, d4list, d5list, d6list, d7list, d8list, d9list, d10list)
  15. end
  16.  
  17. on popupstuhlPuppet
  18.   global popupstatus, MacPC
  19.   set the text of field "kurztextoutput" to " "
  20.   set the text of field "textoutput" to " "
  21.   set the text of field "statusbar" to " "
  22.   repeat with i = 42 to 48
  23.     set the puppet of sprite i to 1
  24.   end repeat
  25.   set the cursor of sprite 40 to [604, 605]
  26.   set popupstatus to 0
  27. end
  28.  
  29. on popupstuhl
  30.   global popupstatus, TonOnOff
  31.   if rollOver(42) and (popupstatus = 0) then
  32.     cursor([600, 601])
  33.     updateStage()
  34.     repeat with i = 7 down to 1
  35.       set popupstatus to 1
  36.       set the castNum of sprite 42 to cast ("k" & i)
  37.       updateStage()
  38.     end repeat
  39.     setStuhlButtons(1)
  40.     updateStage()
  41.     repeat while rollOver(42)
  42.       if the mouseDown then
  43.         drehstuhl()
  44.       end if
  45.     end repeat
  46.   else
  47.     if popupstatus = 1 then
  48.       repeat with i = 1 to 7
  49.         set the castNum of sprite 42 to cast ("k" & i)
  50.         updateStage()
  51.       end repeat
  52.       setStuhlButtons(10)
  53.       updateStage()
  54.       set popupstatus to 0
  55.       cursor(0)
  56.       updateStage()
  57.     end if
  58.   end if
  59. end
  60.